home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / U.HST < prev    next >
Encoding:
Text File  |  1987-09-20  |  819 b   |  42 lines
  1. ;
  2. ;    Upload module to HOST.HST
  3. ;
  4. top3_:
  5.    Writeln " "
  6.    Writeln " "
  7.    Write "Enter File Name to Upload or [Q] to exit ? "
  8.    Getr 6 12
  9.    If "$6" = "Q" Re_Menu
  10.    Exist $6 YUpload_
  11.  
  12. Protocol_:
  13.    Writeln "Available protocols: [X]modem  [C]RC Xmodem [I]modem"
  14.    Write   "                     [Y]modem  [G]-Ymodem   [Q]uit  : "
  15.    Getr 7 1
  16.    If "$7" = "X" do_it
  17.    If "$7" = "C" do_it
  18.    If "$7" = "I" do_it
  19.    If "$7" = "Y" do_it
  20.    If "$7" = "G" do_it
  21.    If "$7" = "Q" re_menu
  22.    Writeln " "
  23.    Writeln "Enter one of the following protocols."
  24.    Goto protocol_
  25.  
  26. Do_It:
  27.    Writeln "File [$6]"
  28.    Writeln "Ready to receive.  Press [Ctrl-X] to Abort."
  29.    Downld $6 $7
  30.    Return
  31.  
  32. YUpload_:
  33.    Writeln "File already exists, try again.."
  34.    Goto Top3_
  35.  
  36.  
  37. Re_Menu:
  38.    Return
  39.  
  40.  
  41.  
  42.